Unit EnA;

{$mode objfpc}

Interface

Uses
  Crt;

Var
  Ailment1, Ailment2 : AnsiString;
  DamageBoost, XpBoost : Integer;


Procedure ItemStatBoostReset;
Procedure PreAilmentEffects;
Procedure PostAilmentEffects(Var Health : Integer);

Implementation

Procedure PreAilmentEffects;
Begin

end;

Procedure PostAilmentEffects(Var Health : Integer);
Begin
  If Ailment1 = 'Poison' then
    Begin
      Health := Health - 5;
      Writeln('Damaged by poison!');
    end;
end;

Procedure ItemStatBoostReset;
Begin
  DamageBoost := 0;
end;

end.

